home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vividm.dir / 00018_Script_18 < prev    next >
Text File  |  1983-01-30  |  5KB  |  162 lines
  1. on mouseDown
  2.   if  the doubleclick then
  3.     global cast_m,select
  4.     paper_save
  5.     set cast_m to the castnum of sprite 39
  6.     set the puppet of sprite 48 to true
  7.   set the visible of sprite 48 to false
  8.   updatestage
  9.     go to "film"  
  10.   end if
  11.   if select then exit
  12.   
  13.   
  14.   
  15.   set list_old=[0,0,0,0,0]
  16.   set count=1
  17.   --mette i filmati presenti ad off
  18.   repeat with Loop in [32,33,40,41] 
  19.     if the casttype of cast (the castnum of sprite Loop) = #digitalvideo then
  20.       if the visible of sprite Loop then 
  21.         set rv=the castnum of  sprite Loop
  22.         set the video of cast rv to false
  23.         --updatestage
  24.         setat list_old,count,the castnum of sprite Loop
  25.         set the castnum of sprite Loop to 86
  26.         --updatestage
  27.         set the video of cast rv to true
  28.         
  29.         
  30.         
  31.       end if
  32.     end if
  33.     updatestage
  34.     set  count = count+1
  35.   end repeat
  36.   
  37.   
  38.   global RESIZE,SELECT
  39.   set MYSPRITE=39
  40.   set x1=the left of sprite MYSPRITE
  41.   set y1=the top of sprite MYSPRITE
  42.   
  43.   
  44.   
  45.   
  46.   set digit=false
  47.   set cast =0
  48.   
  49.   --CASO DI MOVE
  50.   if SELECT=0 and RESIZE=0 then
  51.     
  52.     if the casttype of cast( the castnum of sprite MYSPRITE) = #digitalvideo then
  53.       set digit=true  
  54.       --modifichiamo il cast per permettere una normale move
  55.       -- spengo il cast associato (se video)
  56.       set cast to the castnum of sprite MYSPRITE
  57.       set the visible of sprite MYSPRITE to false
  58.       --set the video of  cast ( the castnum of sprite MYSPRITE) to false --spengo il video
  59.       updatestage
  60.       set the castnum of sprite MYSPRITE to 26 --mette una bitmap in modo da effettuare l'operazione
  61.       set the visible of sprite MYSPRITE to true
  62.       --    updatestage    
  63.     end if
  64.     
  65.     repeat while the mousedown
  66.       set the loch of sprite MYSPRITE to the mouseH
  67.       set the locv of sprite MYSPRITE to the mouseV
  68.       --spegniamo il mouse 
  69.       
  70.       updatestage
  71.     end repeat
  72.     --rimettiamo tutto a posto
  73.     if digit=true then
  74.       --    set the video of cast cast to true
  75.       set the video of cast cast to false
  76.       updatestage
  77.       set the castnum of sprite MYSPRITE to cast
  78.       set the locv of sprite MYSPRITE to (the locv of sprite MYSPRITE)+(the height of sprite MYSPRITE/2)
  79.       set the loch of sprite MYSPRITE to (the loch of sprite MYSPRITE)+(the width of sprite MYSPRITE/2)
  80.       set the video of cast cast to true
  81.       updatestage
  82.     end if
  83.     
  84.     
  85.   end if
  86.   
  87.   
  88.   
  89.   
  90.   
  91.   
  92.   
  93.   --CASO DI RESIZE
  94.   
  95.   if RESIZE then
  96.     
  97.     if the casttype of cast( the castnum of sprite MYSPRITE) = #digitalvideo then
  98.       set digit=true  
  99.       --modifichiamo il cast per permettere una normale resize
  100.       -- spengo il cast associato (se video)
  101.       set cast to the castnum of sprite MYSPRITE
  102.       set the visible of sprite MYSPRITE to false
  103.       --  set the video of  cast ( the castnum of sprite MYSPRITE) to false --spengo il video
  104.       updatestage
  105.       set the castnum of sprite MYSPRITE to 26 --mette una bitmap in modo da effettuare l'operazione
  106.       set the visible of sprite MYSPRITE to true
  107.       --  updatestage 
  108.       
  109.     end if
  110.     
  111.     repeat while the mousedown
  112.       set x to the mouseH
  113.       set y to the mouseV
  114.       --spegniamo il mouse 
  115.       --cursor 200
  116.       
  117.       --adesso possiamo allargare lo sprite
  118.       
  119.       -- modifichiamo l'ampiezza dell'oggetto...
  120.       --if x>the left of sprite MYSPRITE and y > the top of sprite MYSPRITE then
  121.       spritebox MYSPRITE,x1,y1,x,y
  122.       --end if
  123.       --  if the visible of sprite MYSPRITE = 0 then the visible of sprite MYSPRITE = 1
  124.       updatestage
  125.     end repeat
  126.     --rimettiamo tutto a posto
  127.     if digit=true then
  128.       --    set the video of cast cast to true
  129.       set the video of cast cast to false
  130.       updatestage
  131.       set the castnum of sprite MYSPRITE to cast
  132.       set the locv of sprite MYSPRITE to (the locv of sprite MYSPRITE)+(the height of sprite MYSPRITE/2)
  133.       set the loch of sprite MYSPRITE to (the loch of sprite MYSPRITE)+(the width of sprite MYSPRITE/2)
  134.       set the video of cast cast to true
  135.       updatestage
  136.     end if
  137.     
  138.     
  139.   end if
  140.   
  141.   
  142.   
  143.   
  144.   
  145.   
  146.   set count =1
  147.   --mette i filmati presenti ad on
  148.   repeat with Loop in [32,33,40,41] 
  149.     
  150.     if getat (list_old,Count) then 
  151.       set the castnum of sprite Loop to getat (list_old,Count)
  152.     end if
  153.     set count =count +1
  154.     
  155.   end repeat
  156.   updatestage
  157.   
  158.   cursor -1
  159. end
  160. --*****************************************
  161.  
  162.